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4801 Peet iae ts ya 68: $2 LIBRTL.SRCILIBBBCCI.MAR;1 ° (1) 
1 TITLE Lyesneccl - Test and ee is. wter los ked 
¢ eIDENT /1-001/ LIBBBCCI.MAR Edit: SBL1001 
¢ s enneeneeeereseuceencsrorsnnneeusennnnnuensernqsseeosensenseqoetoreetoosones 
7* & 
0 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
00 8 ;* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
BS 10 ae ALL RIGHTS RESERVED. * 
Py & 
00 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
4 1 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15. ;* INCLUSION OF THE ABOVE Sagat ol NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
464 16 ‘* TRANSFERRED. * 
3 ® 
0000 18 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8000 Y :* CORPORATION. * 
3 ® 
0000 § z* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 4 38 * 
0000 5 :* * 
st g: 3 'MARAARARALALAAALALAAAEALAESLALLESLELLALALESALESALESESEEASLELASLEASLELASLELESEL ELE SY 
0000 8’ 
0000 9 3+ 
444 , : FACILITY: General Utility Library 
0000 : : ABSTRACT: 
0000 3 
it : 5 LIBSBBCCI tests and clears a bit with interlock. 
9000 6 : ENVIRONMENT: Runs at any access mode, AST Reentrant 
8008 38 : AUTHOR: Steven B. Lionel, CREATION DATE: 16-AUG-1982 
0000 40 ; MODIFIED BY: 
0000 41; 
0000 $s ; 1-001 - Original. SBL 16-AUG-1982 
0000 43 ;-- 
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1-001 DECLARATIONS 6-SEP-1984 4 3:68:92 LIBRTL.SRCJLIBBBCCI.MAR;1 en (3) 

45 «SBTTL DECLARATIONS ; 

‘3 : LIBRARY MACRO CALLS: ; 

49 : NONE ; 

° 1 } EXTERNAL DECLARATIONS: ; 

00 : : -DSABL GBL 3: Force all external symbols to be declared : 

00 4; NONE 3 

0 5: 3 

9 $ ; MACROS: ; 

000 8; NONE : 

00 9; F 

0000 60 ; EQUATED SYMBOLS: 3 

0000 61; ; 

0000 6¢ ; NONE ; 

0000 63 ; $ 

0000 64: ; 

0000 65: ; 

0000 66: NONE : 

0000 67: : 

9000 $8 ; PSECT DECLARATIONS: ; 

00000000 70° -PSECT _LIBSCODE PIC, USR, CON, REL. LCL, SHR, 3 

8000 ¢ 4} EXE, RD, NOWRT, : 


| 
| 
OWN STORAGE: 
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w 
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- Test and clear a bit with in 35-Sep-1984 168;8e LTARTL. SREILIOBBCCI-MAR: 1 ™ a) 


ial -SBTTL LIBSBBCCI = Test and clear a bit with interlock 
FUNCTIONAL DESCRIPTION: 


S 
ct 
ee 
o- 


C 


LIBSBBCCI tests and clears a selected bit under memory interlock. 
LIBSBBCCI makes the VAX-11 BBCCI instruction available as a 
callable procedure. 


: The single bit specified by the ‘'position’’ and ‘‘base’’ arguments 

: is tested, the previous state of the bit remembered, and the bit cleared. 
3 The reading of the state of the bit and the clearing of it constitute 

3 an interlocked operation, interlocked against similar operations by 

$ other processors or devices in the system. The remembered previous 

; state of the bit is then returned as the function value of LIBSBBCCI. 


; For more information, see the VAX-11 Architecture Reference Manual. 
; CALLING SEQUENCE: 

: previous-state.wv.v = LIBSBBCCI (position.rl.r, base.rz.r) 

; FORMAL PARAMETERS: 


OOCOQOOCOCOCoooooooo “wow 


VION S KNWOOCOOOOCOSOSOSOSSOSOOSOSOOSSCOSGOOSOSOOSOOSSOSOSOSOOCOOCOOOOCOOSOOOOOOSCOO 35 
oO 
~o 


Dat Ae Pee 8 tat td te et Ee PY 


NOUS WN O OONAUES WN OOONOU 


00000004 


position = 4 The signed longword bit position, relative to ‘base’, 
98 ; of the bit being tested and cleared. Passed by reference. 
06000008 


base = 8 The byte which contains bit zero of the object 


being tested and cleared. Passed by reference. 


; IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
The previous value of the bit which was tested and cleared. 
SIDE EFFECTS: 
Clears the specified bit. 


SOoOSOSCOSCOOSOSOSSSOSSOSSOSCSOSOSOSOSOSSSOSOOSOSOOOOOOOSOOSOSOOSoO 
OOoOOSCSCoSOSOoOOOOOSOOCOSOOCSOSoOoOoOOoOSoSoOOoSoSoOo 


SOOOCSOSOSOSCSOSOSOOOSOOOOOSOOSOSOSOSOSSOSOSOOOSOSOSOOOSOSOSOSOSOOOOOOOOOOOOOOOOO S 


ee ee ee ee ee ed ee ee ed ed od od od od dd dS od wd 3 
RoRoRoRoRONOnOn) 3 3 = DOO DOO OO0O 


NOUS AN —@O OONAOUE WN (OOO NAUS WN Oo 


SoOooooooooooo 


0 oo 
0000 -ENTRY LIBSBBCCI, “M<> ; 
50 D4 QO CLRL g initially, assume bit clear 
02 08 BC 04 Bf E7 00 BBCCI Bpositiontap), @base(AP), 10$ ; Skip if bit clear 
0 06 ; INCL R ; Bit was set 
: ; Return previous state 
04 . 10$ RET Ret i tat 
0 


~END ; End of module LIBSBBCC! 
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Symbol table 6 


Pietonccr —* SHOBRRN not 


i eo 


PSECT No. 


Attributes 


Allocation 


Initialization 3 08 00:00.9 0:00:01.35 
Te processing 109 00:00:00. 0:00:01.19 

s 1 64 es Bb IF 3 00:00:00.75 
Synbol table sort 0 00:00:00.00 00:00:00.00 

s 2 38 00:00:00.16 So 
Sokal table output 2 00:00:00.01 0:00:00.01 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 0 BR OR Bn «0 00:00:00.00 
Assembler run totals 246 00:00:00.7 00:00:04.77 


et Limit was 900 
1217 bytes (3 pages) of virtua 
There were 10 pages of symbol table space allocated to hold 3 
127 source Lines were read in Pass 1, producin 
0 pages of virtual memory were used to define 


The working ages. 


10 object records in Pass 2 
macros. 


Gwowceseeeeoooososeseoecorns 


Macro Library name 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 


CON 


S 444 44 ( 9.3 69 ( 0.) NOPIC USR 
LIBSCODE 0000000 (« 1 6 Wor PIC USR CON 
Suacensuecenuneneowwences 
H ; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 


memory were used to buffer the intermediate code. 
non-local and 1 local symbols. 


LCL 
LCL 


AX/VMS M 
LIBRTL.SR 


EXE 


cro 
REILI 


v04-00 
CIBBBCCI .MAR: 1 


rae, 


et NOEXE NORD NOWRT NOVEC BYTE 
SHR RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:LIBBBCCI/OBJ=OBJ$:LIBBBCC] MSRC$:LIBBBCCI/UPDATE=(ENHS$:LIBBBCCI) 
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